OPTION BASE 0
DIM X(126),K(2)
DEF FNA(X,Y,Z)=X*SIN(Y*0.01745329)*Z-16*Z^2
DO
   LET F2=0
   INPUT "MUZZLE VELOCITY AND ANGLE? "; M,A
   LET X(0)=0
   FOR T=0.2 TO 25 STEP 0.2
      LET L=INT(5*T+0.001)
      LET X(L)=FNA(M,A,T)
      IF X(L)<0 THEN EXIT FOR
      IF X(L)-X(L-1)<=0 AND F2=0 THEN
         IF X(L-1)-X(L-2)<X(L)-X(L-1) THEN
            LET K(1)=X(L-2)
            LET W4=T-0.4+J
         ELSE
            LET K(1)=X(L-1)
            LET W4=T-0.2+J
         END IF
         LET F2=1
         FOR J=0.01 TO 0.2 STEP 0.01
            LET K(2)=FNA(M,A,W4)
            IF K(1)-K(2)<=0 THEN EXIT FOR
            LET K(1)=K(2)
         NEXT J
         LET K1=MAX(K(1),K(2))
      END IF
   NEXT T
   LET W=L-1
   FOR J=0.01 TO 0.2 STEP 0.01
      LET K(1)=FNA(M,A,T-0.2+J)
      IF K(1)<0 THEN EXIT FOR
   NEXT J
   PRINT "MAXIMUM HEIGHT IS ";K1;" FEET"
   LET Y=M*COS(A*0.01745329)*(T-0.2+J-0.01)
   PRINT "RANGE IS ";Y;" FEET"
   PRINT "TOTAL TIME AIRBORNE IS ";(T+J-0.01);" SECONDS"
   IF K1+14>60 THEN
      LET M1=1/(IP(K1/60+1))
      PRINT "SCALE OF HEIGHT IS 1 SPACE = ";1/M1;" FEET"
   ELSE
      LET M1=1
   END IF
   FOR D=1 TO 80
      PRINT TAB(D+19);"+";
   NEXT D
   PRINT
   PRINT " 0";TAB(20);"+"
   FOR N=1 TO W
      PRINT 0.2*N*M*COS(A*0.01745329);TAB(20);"+";TAB(X(N)*M1+20);"*"
   NEXT N
   INPUT "ANYMORE (YES OR NO)?";ANS$
LOOP WHILE A$="YES"
END